home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / trek 64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  183 lines
  1. 100 PRINT"[147][144]":CLR:POKE53280,1:POKE53281,1
  2. 110 Z1$=""
  3. 120 Z2$=""
  4. 130 Z3$="                                       "
  5. 140 DIMD%(5),K1%(7),K2%(7),K3%(7),S%(7,7),Q%(7,7),D$(5),DA$(5)
  6. 150 Q$="[219]EKB*":DA$(2)="  [205][221][206]1.5":DA$(3)=" 5[195]E[195]1":DA$(4)="  [206][221][205]"
  7. 160 CU=19:DA$(5)=" 6 7 8":DA$(1)=" 4 3 2":D$(0)="WARP ENGINES":D$(3)="PHASERS"
  8. 170 D$(1)="SHORT RANGE SENSORS":D$(2)="LONG RANGE SENSORS"
  9. 180 D$(4)="TORPEDOES":D$(5)="GALACTIC RECORDS"
  10. 190 PRINT"[144]  STAR TREK IS WORKING ON YOUR MISSION!
  11. 200 [150][165]D(N)[178][186]((K1%(I)[171]S1)[174]2[170](K2%(I)[171]S2)[174]2)[174].4
  12. 210 [141]650:[141]460:Q1[178]X:Q2[178]Y:X[178]8:Y[178]1:X1[178].2075:Y1[178]6.28:X2[178]3.28:Y2[178]1.8:A[178].96
  13. 220 C[178]100:W[178]10:S9[178]400:T9[178]3540[170][181]([187](1)[172]40):[137]240
  14. 230 K[178]K[170](N[179]X2)[170](N[179]Y2)[170](N[179].28)[170](N[179].08)[170](N[179].03)[170](N[179].01):K9[178]K9[171]K:[137]270
  15. 240 T0[178]3520:T[178]T0:E0[178][181]([187](1)[172]1500[170]3000):E[178]E0:P0[178][181]([187](1)[172]3[170]7):P[178]P0
  16. 250 [129]I[178]0[164]7
  17. 260 [129]J[178]0[164]7:K[178]0:N[178][187](1):[139]N[179]X1[167]N[178]N[172]64:K[178](N[179]Y1)[171]Y:[137]230
  18. 270 B[178]([187](1)[177]A):B9[178]B9[171]B:Q%(I,J)[178]K[172]C[170]B[172]W[171][181]([187](1)[172]X[170]Y):[130] J,I
  19. 280 [139]K9[177](T9[171]T0)[167]T9[178]T0[170]K9
  20. 290 [139]B9[177]0[167]310
  21. 300 [141]460:Q%(X,Y)[178]Q%(X,Y)[171]10:B9[178]1
  22. 310 [153]"OBJECTIVE:DESTROY";K9;"KLINGON CRUISERS IN";T9[171]T0;"YEARS"
  23. 320 [153]:[153]"THE NUMBER OF BASES IS";B9:[141]620:K0[178]K9
  24. 330 A[178]0:[139]Q1[179]0[176]Q1[177]7[176]Q2[179]0[176]Q2[177]7[167]N[178]0:S[178]0:K[178]0:[137]350
  25. 340 N[178][182](Q%(Q1,Q2)):Q%(Q1,Q2)[178]N:S[178]N[171][181](N[173]10)[172]10:K[178][181](N[173]100)
  26. 350 B[178][181](N[173]10[171]K[172]10):[141]460:S1[178]X:S2[178]Y
  27. 360 [129]I[178]0[164]7:[129]J[178]0[164]7:S%(I,J)[178]1:[130] J,I:S%(S1,S2)[178]2
  28. 370 [129]I[178]0[164]7:K3%(I)[178]0:X[178]8:[139]I[177][178]K[137]390
  29. 380 [141]470:S%(X,Y)[178]3:K3%(I)[178][187](TI)[172]400[170]200:[139][187](1)[179]0.05[167]K3%(I)[178]1200
  30. 390 K1%(I)[178]X:K2%(I)[178]Y:[130]:I[178]S
  31. 400 [139]B[177]0[167][141]470:S%(X,Y)[178]4
  32. 410 [139]I[177]0[167][141]470:S%(X,Y)[178]5:I[178]I[171]1:[137]410
  33. 420 [141]540:[139]D%(1)[177]0[167][141]490:I[178]1:[137]660
  34. 430 [141]1860:[141]1770:[141]1760
  35. 440 [139]A[178]0[167][141]490:[141]1770
  36. 450 [137]680
  37. 460 X[178][181]([187](1)[172]8):Y[178][181]([187](1)[172]8):[142]
  38. 470 [141]460:[139]S%(X,Y)[177]1[167]470
  39. 480 [142]
  40. 490 [139]K[179]1[167][142]
  41. 500 [139] C$[178]"DOCKED"[167][141]1900:[153]"BASE PROTECTS ENTERPRISE":[142]
  42. 510 [129]I[178]0[164]7:[139]K3%(I)[179][178]0[167][130]:[142]
  43. 520 H[178]K3%(I)[172]1.2[172][187](1):H[178]1[170][181](H[173][165]D(0)):E[178]E[171]H
  44. 530 [141]1900:[153]"HIT OF";H;"FROM";K1%(I)[170]1;"-";K2%(I)[170]1;:[130]:[142]
  45. 540 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
  46. 550 [139]I[179]0[176]I[177]7[176]J[179]0[176]J[177]7[167]590
  47. 560 [139]S%(I,J)[179][177]4[167]590
  48. 570 C$[178]"DOCKED":[129]N[178]0[164]5:[139]D%(N)[177]0[167][141]1900:[153]"ENTERPRISE REPAIRED":N[178]5
  49. 580 [130]N:E[178]E0:P[178]P0:[141]650:I[178]S1[170]1:J[178]S2[170]1:[130]J,I:[142]
  50. 590 [130]J,I:[139]K[177]0[167]C$[178]"REDSTOP":[142]
  51. 600 [139]E[179]E0[172].2[167]C$[178]"SYSYELLOWSTOP":[142]
  52. 610 C$[178]"GREENSTOP":[142]
  53. 620 [153]"OK?";
  54. 630 [161]E$:[139]E$[178]""[167] 630
  55. 640 [153] " WAIT";:[142]
  56. 650 [129]N[178]0[164]5:D%(N)[178]0:[130]:[142]
  57. 660 [141]1760:[153]D$(I);" DAMAGED";
  58. 670 [141]1900:[153]D%(I);"YEARS FOR REPAIR":[139]A[178]1[167][142]
  59. 680 [141]1900:[153]"COMMAND?";:[141]630:[141]1720
  60. 690 [139]A[179]1[176]A[177]6[167]710
  61. 700 [145]A[137]780,420,1380,1250,760,1430
  62. 710 CU[178]25
  63. 720 [129] J[178]0[164]5:[141]1900
  64. 730 [153]"";[200](D$(J),1);"WAIT=";D$(J)
  65. 740 [129] I[178]1[164]200:[130]I
  66. 750 [130]J:[137]680
  67. 760 [139]D%(4)[177]0[167][153]"SPACE CRUD BLOCKING TUBES";:I[178]4:[137]670
  68. 770 N[178]15:[139]P[179]1[167][153]"NO TORPEDOES LEFT":[137]680
  69. 780 CU[178]19:[129]J[178]1[164]5:[141]1900:[153]DA$(J):[130]:[153]"ONON";
  70. 790 [153][163]12)"COURSE (1-8.9)";
  71. 800 [133]C:[139]C[179]1[176]C[177]8.9[167]680
  72. 810 [139]A[178]5[167]P[178]P[171]1:[137]970
  73. 820 [153][163]12);:[133]"WARP (0-12)";W:[139]W[179][178]0[176]W[177]12[167]680
  74. 830 [139]W[179][178].2[176]D%(0)[179][178]0[167]860
  75. 840 [141]1900:[153]D$(0);" DAMAGED, MAX IS .2";:I[178]0
  76. 850 [141]670:[129]J[178]0[164]800:[130]J:[137]780
  77. 860 [139][187](1)[177].33[167]940
  78. 870 X[178][181]([187](1)[172]6):[139][187](1)[177].7[167]900
  79. 880 D%(X)[178]D%(X)[170][181](6[171][187](1)[172]5):[141]1900:[153] "SPACE STORM: ";
  80. 890 [153]D$(X);" BROKENWAIT":I[178]X:[141]670:D%(X)[178]D%(X)[170]1:[137]940
  81. 900 [129]I[178]X[164]5:[139]D%(I)[177]0[167]930
  82. 910 [130]:[129]I[178]0[164]X:[139]D%(I)[177]0 [167]930
  83. 920 [130]:[137]940
  84. 930 D%(I)[178]1:[141]1900:[153]"*SCOTTY  HITS IT WITH A HAMMER*WAIT"
  85. 940 [129]I[178]0[164]5:[139]D%(I)[178]0[167]960
  86. 950 D%(I)[178]D%(I)[171]1:[139]D%(I)[179][178]0[167]D%(I)[178]0:[141]1900:[153]D$(I);" ARE FIXED"
  87. 960 [130]:N[178][181](W[172]8):E[178]E[171]3[172]N:T[178]T[170]1:S%(S1,S2)[178]1
  88. 970 Y1[178]S1[170].5:X1[178]S2[170].5:[139]T[177]T9[167]1570
  89. 980 Y[178](C[171]1)[172].785398:X[178][190](Y):Y[178][171][191](Y)
  90. 990 E$[178]"E":Y4[178]S1:X4[178]S2
  91. 1000 [139]A[178]5[167]E$[178]"(null)STOP":X4[178]8
  92. 1010 [129]I[178]1[164]N:Y1[178]Y1[170]Y:X1[178]X1[170]X:Y2[178][181](Y1):X2[178][181](X1)
  93. 1020 [139]X2[179]0[176]X2[177]7[176]Y2[179]0[176]Y2[177]7[167]I[178]N:[130]:[137]1200
  94. 1030 [139]S%(Y2,X2)[178]1[167][141]1660:[130]:[137]1150
  95. 1040 I[178]N:[130]:[139]A[178]5[167][141]1660:Y3[178]Y2:X3[178]X2:[141]1700:[141]1840
  96. 1050 [141]1760:[139]A[178]1[167][153]"BLOCKED BY ";
  97. 1060 [145]S%(Y2,X2)[171]3[137]1130,1110
  98. 1070 [153]"KLINGON";:[139]A[178]1[167]1140
  99. 1080 [129]I[178]0[164]7:[139]Y2[179][177]K1%(I)[167]1100
  100. 1090 [139]X2[178]K2%(I)[167]K3%(I)[178]0
  101. 1100 [130]:K[178]K[171]1:K9[178]K9[171]1:[137]1160
  102. 1110 [153]"STAR";:[139]A[178]5[167]S[178]S[171]1:[137]1160
  103. 1120 [137]1140
  104. 1130 [153]"STARBASE";:[139]A[178]5[167]B[178]2:[137]1160
  105. 1140 [153]" AT SECTOR";Y2[170]1;"-";X2[170]1:Y2[178][181](Y1[171]Y):X2[178][181](X1[171]X)
  106. 1150 S1[178]Y2:S2[178]X2:S%(S1,S2)[178]2:[137]1180
  107. 1160 [153]" DESTROYED!";:[139]B[178]2[167]B[178]0:[153]"....GOOD WORK!";
  108. 1170 [153]:S%(Y2,X2)[178]1:Q%(Q1,Q2)[178]K[172]100[170]B[172]10[170]S:[139]K9[179]1[167]1600
  109. 1180 [141]540
  110. 1190 [141]490:[141]1770:[137]680
  111. 1200 [139]A[179][177]5[167]1230
  112. 1210 Y3[178]Y4:X3[178]X4:[141]1700:[153]"(null)CMD";
  113. 1220 [141]1760:[153]"M I S S E D !":[137]1180
  114. 1230 Q1[178][181](Q1[170]W[172]Y[170](S1[170].5)[173]8):Q2[178][181](Q2[170]W[172]X[170](S2[170].5)[173]8)
  115. 1240 Q1[178]Q1[171](Q1[179]0)[170](Q1[177]7):Q2[178]Q2[171](Q2[179]0)[170](Q2[177]7):[137]330
  116. 1250 I[178]3:[139]D%(I)[177]0[167]660
  117. 1260 [141]1760:[133]"PHASERS READY.UNITS TO FIRE";X:[139]X[179][178]0[167]680
  118. 1270 [139]X[177]E[167][153]"YOU'VE ONLY GOT";E:[137]1260
  119. 1280 E[178]E[171]X:[129]I[178]0[164]7:[139]K3%(I)[179][178]0[167]1350
  120. 1290 H[178][181](X):K3%(I)[178]K3%(I)[171]H:[141]1900
  121. 1300 [139] K3%(I)[179]0[167]H[178]H[170]K3%(I)
  122. 1310 [153]"HIT OF"H"ON K AT"K1%(I)[170]1"-"K2%(I)[170]1",";
  123. 1320 [139]K3%(I)[177]0[167][153]K3%(I);"LEFT";:I[178]7:[130]:[137]1360
  124. 1330 [153] "*DESTROYED*WAIT";:Y3[178]K1%(I):X3[178]K2%(I):[141]1700:[141]1840
  125. 1340 K[178]K[171]1:K9[178]K9[171]1:S%(K1%(I),K2%(I))[178]1:Q%(Q1,Q2)[178]Q%(Q1,Q2)[171]100:X[178]X[171]H
  126. 1350 [130] I
  127. 1360 [139]K9[179]1[167]1600
  128. 1370 [137]1180
  129. 1380 [141]1760:CU[178]24:I[178]2:[139]D%(I)[177]0[167]660
  130. 1390 [153] D$(I);" FOR QUADRANT";Q1[170]1;"-";Q2[170]1
  131. 1400 [129]I[178]Q1[171]1[164]Q1[170]1:[129]J[178]Q2[171]1[164]Q2[170]1:[153]"  ";
  132. 1410 [139]I[179]0[176]I[177]7[176]J[179]0[176]J[177]7[167][153]"***";:[137]1520
  133. 1420 Q%(I,J)[178][182](Q%(I,J)):[137]1490
  134. 1430 I[178]5:[139]D%(I)[177]0[167]660
  135. 1440 [153]"LOADCUMULATIVE GALACTIC SPACE MAP FOR":[153]"  STARDATE";T
  136. 1450 [153]"  QUADRANT";Q1[170]1;"-";Q2[170]1:[153]
  137. 1460 [153]"    1   2   3   4   5   6   7   8"
  138. 1470 [129]I[178]0[164]7:[153]I[170]1;:[129]J[178]0[164]7
  139. 1480 [139]Q%(I,J)[179]0[167][153]"***";:[137]1520
  140. 1490 E$[178][196](Q%(I,J)):E$[178]"00"[170][202](E$,2)
  141. 1500 [139] I[178]Q1[175]J[178]Q2 [167][153]"";[201](E$,3);"WAIT";:[137]1520
  142. 1510 [153] [201](E$,3);
  143. 1520 [153]" ";:[130]:[153]"      ":[130]:[139]A[179][177]3[167][137]1540
  144. 1530 [129]I[178]0[164]1800:[130]:[141]490:[141]1770:[137]680
  145. 1540 [141]620:[141]490:[129]I[178]0[164]400:[130] :[153]"LOAD":[141]1760:[137]420
  146. 1550 [129]I[178]1[164]2500:[130]:[153]"LOADIT IS STARDATE";T:[153]:[129]I[178]0[164]1800:[130]I
  147. 1560 [142]
  148. 1570 [141]1550:[153] "THANKS TO YOUR BUNGLING THE FEDERATION  WILL BE";
  149. 1580 [153]" CONQUERED BY THE REMAINING";K9:[153]"KLINGONS!":[153]
  150. 1590 [153]"YOU ARE DEMOTED TO CABIN BOY!":[153]:K0[178]0:[137]1630
  151. 1600 [141]1550:[153]"  THE FEDERATION AND YOUR ASS HAVE BEEN SAVED !":[153]
  152. 1610 [153]"YOU ARE PROMOTED TO ADMIRAL":[153]
  153. 1620 [153]"YOU SLAUGHTERED";K0[171]K9;" KLINGONS IN"T[171]T0;" YRS.":[153]
  154. 1630 [153]"RATING =";[181](1000[172](K0[171]K9)[173](T[171]T0)):[153]
  155. 1640 [133]"TRY AGAIN";E$:[139][200](E$,1)[178]"Y"[167]100
  156. 1650 [128]
  157. 1660 Y3[178]Y2:X3[178]X2:[141]1700:[153]E$
  158. 1670 [139]X2[178]X4[175]Y2[178]Y4[167][142]
  159. 1680 Y3[178]Y4:X3[178]X4:[139]X4[179]8[167][141]1700:[153]"(null)"
  160. 1690 Y4[178]Y2:X4[178]X2:[142]
  161. 1700 [153][200](Z1$,Y3[172]2[170]3);[200](Z2$,X3[172]2[170]2);
  162. 1710 [142]
  163. 1720 [129]X3[178]1[164]6:[139]E$[178][200](D$(X3[171]1),1)[167] 1740
  164. 1730 [130]:[153]E$:A[178]7:[137]1750
  165. 1740 [153]"";D$(X3[171]1):A[178]X3:[129]I[178]1[164]400:[130]
  166. 1750 CU[178]19:[141]1900:[142]
  167. 1760 [129]X3[178]1[164]6:[141]1900:[130]:[142]
  168. 1770 [139]E[179][178]0[137]1570
  169. 1780 [153]""[200](Z2$,20)"YEARS=   CMDCMDCMD"T9[171]T
  170. 1790 [153][163]20)"CONDITION "C$" "
  171. 1800 [153][163]20)"QUADRANT="Q1[170]1"-"Q2[170]1
  172. 1810 [153][163]20)"ENERGY=     CMDCMDCMDCMDCMD"[181](E):[153][163]20)D$(4)"="P
  173. 1820 [153][163]20)"KLINGONS LEFT=   CMDCMDCMD";K9
  174. 1830 [142]
  175. 1840 [140]:[129]X3[178]1[164]7:[135] E$:[153] E$;:[129]Y3[178]1[164]60:[130]Y3:[130]X3:[142]
  176. 1850 [131]"+CMD"," WAITCMD","(null)CMD"," CMD","ONCMD(null)RIGHT$CMDCMDCMDMID$(null)ONCMDCMD","ONCMD  CMDCMDCMD  ONCMDCMD","(null)CMD"
  177. 1860 [153]"LOADORTAN1TAN2TAN3TAN4TAN5TAN6TAN7TAN8TAN^":[153]"(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null) (null) (null)"
  178. 1870 [129]I[178]0[164]7:[153]"CMD";I[170]1;"CMDTAN";:[129]J[178]0[164]7:[153][202](Q$,S%(I,J),1);"TAN";:[130]
  179. 1880 [153]"< "
  180. 1890 [153]"(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)":[130]:[153]"/TAN>TAN>TAN>TAN>TAN>TAN>TAN>TAN>TANEXP":[142]
  181. 1900 CU[178]CU[170]1:[139]CU[177]24[167]CU[178]20
  182. 1910 [153][200](Z1$,CU);Z3$:[153][200](Z1$,CU);:[142]
  183.